* lisp/simple.el (shell-command): Add save-match-data comment

diff --git a/lisp/simple.el b/lisp/simple.el
index 6d7f00f52f487b408ed7236f5b3a206d9cecb1f2..a757876328b5f61871c670d025752fe6438ed12a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3328,6 +3328,8 @@ the use of a shell (with its need to quote arguments)."
                                     (current-buffer)))))
        ;; Output goes in a separate buffer.
        ;; Preserve the match data in case called from a program.
+        ;; FIXME: It'd be ridiculous for an Elisp function to call
+        ;; shell-command and assume that it won't mess the match-data!
        (save-match-data
          (if (string-match "[ \t]*&[ \t]*\\'" command)
              ;; Command ending with ampersand means asynchronous.